Class Prop 
 with before [; 
      Examine: return false;
      Search: <<Examine self>>;
      default: print_ret "That is not important in this story.";
      ], 
  has scenery;

Class PropSup
 with before [; 
      Examine: return false;
      Search: <<Examine self>>;
      default: 
        if(noun == self){
	 print_ret "In this story, ", (the) self, " has no role to play.";
	}
	else return false;
      ], 
  has supporter static;
  
Class Furniture
 with before [;
      Take,Pull,Push,PushDir:
        print (The) self; print " "; IsorAre(self); " too heavy.";
      ],
 has  static;

Class Deur
 with react_before [; 
            
	  Go: if(noun.door_dir == self.door_dir()) return self.open_by_myself();
	  Enter: if (noun == self) return self.open_by_myself();
      ],
      open_by_myself [ ks;
      	  if (self has open) rfalse;
          print "(opening ", (the) self, ")^";
	  ks = keep_silent; keep_silent = true;
	  <Open self>; keep_silent = ks;
	  if (self hasnt open) rtrue;
      ],
  has static door;